約 2,105,527 件
https://w.atwiki.jp/gtavi_gta6/pages/1791.html
チーターレトロ (Cheetah Classic) チーターレトロ (Cheetah Classic)詳細データ 解説 入手場所、出現場所オフライン オンライン 改造費用アーマー ブレーキ バンパーフロントバンパー リアバンパー エンジンエンジン エンジンブロック マフラー フェンダー ボンネット ライト ルーフ スカート スポイラー サスペンション トランスミッション ターボ 画像公式ポスター モデル 詳細 データ 種類 メーカー 和名 日本語訳 ドア 乗車定員 駆動 ギア クラッシックスポーツカー グロッティ チーターレトロ チーター 2ドア 2人 MR 速 モデル ラジオ 主な選局 洗車 フェラーリ・テスタロッサフェラーリ・512TRフェラーリ・365GT4BB 有り 可 プラットフォーム カスタム カラー デフォルトホイールタイプ オンライン専用 PS4 / Xbox One / PC限定 可 メイン/サブ/トリム プラットフォーム 価格 売却額 保険料 オンライン専用 PS4 / Xbox One / PC限定 $865,000 $ $ プラットフォーム ガレージ保管 オンライン専用 自宅物件ガレージ PS4 / Xbox One / PC限定 可 解説 「銃器密造」で追加され、2017年7月12日に配信されたグロッティ製のクラシックスポーツカー。 名前の通りチーターのかつての姿…なのだが、モデルはフェラーリ・テスタロッサ、512TR、365GT4BBと、チーターのモデルであるエンツォ・フェラーリの系譜とは全く関係がない。 本来のチーターの系譜と関連性があるのはツーリスモRとツーリスモレトロの方である。 マシン性能としては、最近追加されたスーパーカー系のクラシックスポーツカーと同様に、高いトラクション性能と加速性能、そして安定したコーナリング性能を持ち、クラシックスポーツカーカテゴリにありがちな「ハイパワーだが暴れやすい」ということはない。 ツーリスモレトロと比べるとこちらはアンダーステア気味で、なおかつバンプで暴れやすい傾向にある。 丸目のリアライトは過去作『VC』『SA』に登場したチーターほぼそのままとなっており、ロックスターのセルフオマージュと言える。 スポイラーによっては更にそれらしくでき、クラシックスポイラーなら『VC』、スーパースポイラーなら『SA』らしくなる。 ロックスター的にもこのスタイルのチーターと言うのはかなり思い入れのある物なのだろう。作りこみはかなりの物で、フロントのグロッティを示すメーカーバッジがしっかりモデリングされているほど。 カスタマイズパーツも豊富で非常に個性を出しやすく、組み合わせ次第ではテスタロッサや512TRなどに似せたカスタマイズが可能。 メインカラーに加えて、中央に1本入るストライプのサブカラー、ダッシュボードやインテリアカラーを変更するトリムカラーも存在している。 流石に『VC』に登場していた覆面パトカー仕様に似せた物までは作れないが、自分だけの1台を作るにはうってつけと言える。テスタロッサ風に仕上げたいのなら、ホイール「ファイブスター」がオススメ。 また合成と改変の結果からか、レースゲーム『リッジレーサー』シリーズに登場する車種にも雰囲気が似ている。黄色や青色にペイントすればよりそれらしくなるだろう。 時間を重ねることでしか得られない魅力もあります。 退屈な現代社会で、チーターレトロほど魅力的に年を重ねているものがあるでしょうか? 実用的で車内は広く、装飾は控えめ、隠しきれない力強さがにじみ出ます。 ドアを開ければ、ブランデーと葉巻の匂いが迎えてくれるでしょう。 限りなく尊大で、秘書の体をまさぐり放題、 配慮なく差別をまき散らしてもとがめられなかった、古き良き時代に戻してくれそうです。 (Legendary Motorsportの解説文) ビンテージと最先端のスタイルで迷っているなら、その両方を併せ持つチーターレトロを手に入れましょう。 この美しいマシンは30年前に生産が始まって以来、流行を作り出し、記録を破ってきました。 クラシックな高級感と新しさを同時に表現したいなら、これ以上のものはないでしょう。 (ロード画面の解説文) 入手場所、出現場所 オフライン 入手不可。 オンライン オンラインショップ「Legendary Motorsport」で購入。 改造費用 アーマー アーマー 【6種】 費用 オンライン専用 なし $1,000 アーマー強化20% $7,500 アーマー強化40% $12,000 アーマー強化60% $20,000 アーマー強化80% $35,000 アーマー強化100% $50,000 ブレーキ ブレーキ 【4種】 費用 オンライン専用 ブレーキ(標準装備) $1,000 ストリート・ブレーキ $20,000 スポーツ・ブレーキ $27,000 レース・ブレーキ $35,000 バンパー フロントバンパー フロントバンパー 【9種】 費用 オンライン専用 フロントバンパー(標準装備) $2,200 メインカラー・スプリッター $4,600 サブカラー・スプリッター $7,400 レトロスプリッター $11,700 メインカラー・レトロスプリッター $14,500 サブカラー・レトロスプリッター $14,700 スポーツスプリッター $14,900 メインカラー・スポーツスプリッター $15,100 サブカラー・スポーツスプリッター $15,300 リアバンパー リアバンパー 【2種】 費用 オンライン専用 リアバンパー(標準装備) $2,200 サブカラー・リアバンパー $4,600 エンジン エンジン エンジン 【4種】 費用 オンライン専用 EMSアップグレード:レベル1 $9,000 EMSアップグレード:レベル2 $12,500 EMSアップグレード:レベル3 $18,000 EMSアップグレード:レベル4 $33,500 エンジンブロック エンジンブロック 【3種】 費用 オンライン専用 エンジンブロック(標準装備) $300 メインカラー・ブロック $900 サブカラー・ブロック $1,500 マフラー マフラー 【4種】 費用 オンライン専用 マフラー(標準装備) $260 カーボン・チップ・マフラー $750 チタン・チップ・マフラー(大) $1,800 カーボン・チップマフラー(大) $3,000 フェンダー フェンダー 【5種】 費用 オンライン専用 フェンダー(標準装備) $300 エア・リアフェンダー $900 エア・リアフェンダー(大) $1.500 クラシック・リアフェンダー $1,700 クラシック・リアフェンダー(大) $2,000 ボンネット ボンネット 【5種】 費用 オンライン専用 ボンネット(標準装備) $1,600 スポーツボンネット $3,000 レトロボンネット $5,000 メインカラー・レトロボンネット $8,000 サブカラー・レトロボンネット $9,600 ライト ライト 【2種】 費用 オンライン専用 ライト(標準装備) $600 HIDライト $7,500 ルーフ ルーフ 【5種】 費用 オンライン専用 ルーフ(標準装備) $200 「Grotti」サンストリップ $700 「Grotti」白のサンストリップ $1,150 「Grotti」青のサンストリップ $1,600 「Grotti」国旗のサンストリップ $1,950 スカート スカート 【6種】 費用 オンライン専用 スカート(標準装備) $ メインカラー・スカート $5,500 サブカラー・スカート $8,000 リッジスカート $10,500 メインカラー・リッジスカート $14,000 サブカラー・リッジスカート $14,500 スポイラー スポイラー 【19種】 費用 オンライン専用 なし $6,000 レトロスポイラー $7,050 レトロGTスポイラー $10,000 レトロレーサースポイラー $13,000 クラシックスポイラー $14,000 クラシックスポイラーⅡ $16,000 GTスポイラー $16,500 GTスポイラー(サブ色) $17,000 GTスポイラーⅡ $17,500 GTスポイラーⅡ(サブ色) $18,000 レーススポイラー $18,500 レーススポイラー(サブ色) $19,000 レーススポイラーⅡ $19,500 レーススポイラーⅡ(サブ色) $20,000 スーパースポイラー $20,500 スーパーGTスポイラー $21,000 スーパーGTスポイラー(サブ色) $21,500 スーパーGTレーススポイラー $22,750 スーパーGTレーススポイラー(サブ色) $24,000 サスペンション サスペンション 【4種】 費用 オンライン専用 サスペンション(標準装備) $200 ロウアード・サスペンション $1,000 ストリート・サスペンション $2,000 スポーツ・サスペンション $3,400 トランスミッション トランスミッション 【5種】 費用 オンライン専用 トランスミッション(標準装備) $1,500 ストリート・トランスミッション $5,900 スポーツ・トランスミッション $6,500 レース・トランスミッション $8,000 スーパー・トランスミッション $12,000 ターボ ターボ 【2種】 費用 オンライン専用 なし $5,000 ターボチューニング $50,000 ※爆発物、クラクション、ナンバープレート、ペイント、ホイール、ウィンドウの改造費用は全車種共通。 詳細は乗り物 カスタマイズのページを参照。 画像 公式ポスター モデル フェラーリ・テスタロッサ
https://w.atwiki.jp/ce00582/pages/109.html
17 男子通算年金加入年数 (1)計算するデータ mttime(birth) 男子通算年金加入年数 (2)入力するデータ mu 総脱退率 alpha 死亡脱退率 beta 障害脱退率 theta 再加入率 出所 数理レポート sigma 待期者死亡率 出所 不明 m2(year,age) 男子厚生年金被保険者 出所 03 厚生年金被保険者 (3)数式 #ref error :ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (math09.pdf) (4)プログラム プログラム
https://w.atwiki.jp/ce00582/pages/106.html
14 男子老齢年金加入年数 (1)計算するデータ mtime(birth) 男子老齢年金加入年数 (2)入力するデータ mu 総脱退率 alpha 死亡脱退率 beta 障害脱退率 theta 再加入率 出所 数理レポート sigma 待期者死亡率 出所 不明 m2(year,age) 男性の厚生年金被保険者 出所 03 厚生年金被保険者 (3)数式 #ref error :ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (math09.pdf) (4)プログラム プログラム
https://w.atwiki.jp/lotroquest/pages/203.html
RETURN THE CASK/ 感謝の一樽 クエスト・シリーズ:Vintner s Aid / ワイン職人への助力 依頼者:ブレシルウェン(BRETHILWEN) 「樽は満たされ、運ぶ準備も整いました。あなたの助けなしでは全ての収穫を終えることはできなかったでしょう・・ありがとう[名前]。そしてこの最後の一樽は私の友人であるブレガドール(Bregedur)に捧げましょう。この樽とあなたを私の元へと送ってくれた彼にこそ、最高の最後のワインを送りたいのです。 どうかこのワインをケロンディム(Celondim)にいる彼に届けてもらえないでしょうか?西の道から西南の方向に進み、橋を渡ってください。職人広場に彼をみつけることかできるでしょう。」 !ブレガドール(Bregedur)にワイン樽を届けたらこちら 目的1 ●ブレガドール(Bregedur)にワイン樽を届ける ブレガドール(Bregedur)はケロンディム(Celondim)の職人広場にいる。彼を探し出し、樽を届けよう。 あなたが集めたブドウからブレシルウェン(BRETHILWEN)は素晴らしいワインを造り、そのワインをケロンディム(Celondim)に住むブレガドール(Bregedur)に届けてくれるよう、あなたに頼んだ。 背景 ブレガドール(Bregedur)の思いやりへの感謝のしるしに、ブレシルウェ(BRETHILWEN)のワイン樽を彼に届ける。 クエスト・データ 適正レベル:9 クエスト・タイプ:ソロ 前提クエストCLEANING THE FIELD/果樹園の実り 派生クエスト:GIFT FOR A FRIEND /友への贈り物
https://w.atwiki.jp/heavymetaleye101/pages/151.html
YOUTHQUAKE - EVOLUTION OF NEW ORIENTAL METAL 日本が誇る鋼鉄獣の5枚目のアルバム。 アグレッシヴなブルータルスラッシュ、デスラッシュサウンドで圧倒する。 その手の音楽が好きならピンとくるような曲がたくさんあるはず。 ブルータリティ全快にしSLAYER風味なギターソロもみせるスラッシーな②で始まり、後追いするかのように壮絶なサウンドが炸裂していく。ツインリードのギターは線密で細かいキレのある鋭いリフを切り刻んでいき、そんな中にもツインリードを活かして叙情的なメロディも弾きあげていき、メロディックデスメタル的な要素も大量に感じられる。北欧のその手のバンドか!?と聴き手を感じさせることだろう。 ⑥等はオーソドックスなへヴィメタルサウンドを奏でて行き、INFLAMESか!?と思った人はたくさんいることだろうと。僕もその一人です。 ヴォーカルは時にはブラックメタル的とさえ感じさせるような絶叫ヴォイスで曲のブルータリティをより引き出している。曲の時間も標準3分台でアルバム全体を一心不乱に駆け抜けており、ストレートに楽しめる作風です。CDエキストラ仕様でTHE ETERNAL WARも楽しめる。 私はこの手のデスラッシュ+叙情な作風が大好きなのです(笑) SPIRAL CHAOS THE ETERNAL WAR IMPULSE WAVE REFLECTIONS OF MINE SUBLUMINAL SELF DEEP FAULT EVOKE F.N.K ABOVE AND BEYOND NOWHERE KEEN OF PHANTOM
https://w.atwiki.jp/ce00582/pages/1597.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(15 To 64, 1 To 49) As Single Dim mos(15 To 64, 1 To 49) As Single Dim wis(15 To 64, 1 To 49) As Single Dim wos(15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgtmw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v(15 To 69) As Single Dim year As Single Dim slide(5 To 99) As Single Open "c /eli/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 age = 15 Open "c /eli/data/標準報酬.txt " For Input As #12 Do Until EOF(12) Input #12, a1, a2 mw(age) = a1 fw(age) = a2 age = age + 1 Loop Close #12 Open "c /eli/gdata/比例スライド.txt " For Input As #42 Do Until EOF(42) Input #42, a1, a2 year = a1 slide(year) = a2 Loop Close #42 g1 = 0.025 For byear = 1990 To 2034 age = 15 mis(age, 1) = m2by(byear, age) For car = 1 To 49 wis(age, car) = mw(age) wos(age, car) = mw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(age - 1, car) Next If z5 = 0 Then z5 = 1 v(age - 1) = z4 / z5 If v(age - 1) 1 Then v(age - 1) = 1 For car = 2 To 49 mis(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v(age - 1) * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v(age - 1)) * mos(age - 1, car) Next wis(age, 1) = mw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v(age - 1) * mos(age - 1, car - 1) z7 = wis(age - 1, car - 1) * (1 - gamma(age - 1)) * mis(age - 1, car - 1) + wos(age - 1, car - 1) * v(age - 1) * mos(age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 year = byear + age - 2000 wis(age, car) = (mw(age) + (1 + g1 - slide(year)) * (car - 1) * z8 / (1 + g1)) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v(age - 1)) * mos(age - 1, car) z10 = wis(age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + wos(age - 1, car) * (1 - alpha(age - 1) - v(age - 1)) * mos(age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 year = byear + age - 2000 wos(age, car) = (1 + g1 - slide(year)) * z10 / ((1 + g1) * z9) Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(64, car) + mos(64, car) z2 = z2 + wis(64, car) * mis(64, car) + wos(64, car) * mos(64, car) Next year = byear + 65 - 2000 avgtmw(byear) = (1 + g1 - slide(year)) * z2 / (z1 * (1 + g1)) Debug.Print byear, avgtmw(byear) Next Open "c /eli/gdata/男子通算賃金1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, avgtmw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1525.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgtmw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 age = 15 Open "c /nagoya/data/標準報酬.txt " For Input As #12 Do Until EOF(12) Input #12, a1, a2 mw(age) = a1 fw(age) = a2 age = age + 1 Loop For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For car = 1 To 49 wis(byear, age, car) = mw(age) wos(byear, age, car) = mw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = mw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (mw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgtmw(byear) = z2 / z1 Debug.Print byear, avgtmw(byear) Next Open "c /nagoya/gdata/男子通算賃金1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, avgtmw(byear) Next Close #4 End Sub
https://w.atwiki.jp/heavymetaleye101/pages/220.html
THE HAUNTED - THE DEAD EYE 2006年発表の5枚目。 前作はHAUNTEDらしいスラッシュナンバーとピーターの歌唱力を生かしたドラマティックなミドルテンポナンバーが半々と今までのHAUNTEDの方向性と新しいHAUNTEDのサウンドを見せたナンバーがバランス良く収録されていたが、今作の肝はピーターの歌唱力、言ってしまえば「歌モノ」「雰囲気モノ」のミドルテンポナンバーが大半を占めている。ピーターの激情篭ったドラマティックな歌声、そして静と動のコントラストのドラマ性が引き立ったサウンドへと変貌しており、今回疾走リフメイカーのパトリック・ヤンセンが制作に全く関わっていない為か、ギターリフ押し捲りの疾走ナンバーは3曲程度、ほぼ全編ピーターの歌唱力を十分に生かしたメロディアスナンバーだ。事実上1曲目となる②からして前作のAll Against All系のメロディアスなヘヴィナンバーなので、暴走スラッシャーな音を期待すると肩透かし食らいまくりの音だが、ピーターの歌唱力含め楽曲クオリティ自体は本当に素晴らしい。THE HAUNTEDの楽曲世界がまた広がった傑作である。個人的にはここまでHAUNTEDに歌を導入したことに驚かされ、そして感動させられた。 あと日本盤ボーナスからGuilt Tripへの自然すぎる流れも良し! The Premonition The Flood The Medication The Drowning The Reflection The Prosecution The Fallout The Medusa The Highwire{Japan Bonus} The Shifter The Cynic The Failure The Stain The Burden{Japan Bonus} The Program{Japan Bonus} The Guilt Trip ~BONUS DVD~ The Dead Eye(Making Of) All Against All No Compromise 99{live} Abysmal{live}
https://w.atwiki.jp/trpg_summary/pages/2626.html
KP 空衣御侍 PL&PC 高生紳士:明日弾 ひよりん*:海音零次 配信 2021/01/12 20 30- クトゥルフ神話TRPG「灼熱さえあればいい」/PL-高生紳士、ひよりん*【ストロベリーチューンズ】 ハッシュタグ #黄色さえあればいい イラスト kaka:@kaka_024 ツイート 配信告知 キャラクター紹介 / 詳細 名付け 感想 空衣御侍 / 高生紳士 / ひよりん* 立ち絵 明日弾 / 海音零次 2周年ツイート ひよりん* 1 / 2
https://w.atwiki.jp/ce00582/pages/59.html
Private Sub Command1_Click() Dim theta(1 To 2, 15 To 65) As Single Dim m2(-3 To 99, 16 To 65) As Single Dim f2(-3 To 99, 16 To 65) As Single Dim de(1 To 2, 16 To 65) As Single Dim mis(16 To 65, 1 To 50) As Single Dim mos(16 To 65, 1 To 50) As Single Dim mrate(-3 To 99, 16 To 65) As Single Dim frate(-3 To 99, 16 To 65) As Single Dim b(-1 To 10, 0 To 99) As Single Dim c(-1 To 10, 0 To 99) As Single Dim m(-5 To 99, 0 To 99) As Single Dim f(-5 To 99, 0 To 99) As Single Dim newm(-3 To 99) As Single Dim newf(-3 To 99) As Single Dim alpha(1 To 2, 15 To 64) As Single Dim beta(1 To 2, 15 To 64) As Single Dim phi(1 To 2, 15 To 64) As Single Dim age As Single Dim car As Single Dim year As Single Dim c1 As Single Dim c2 As Single Dim c3 As Single Dim zero As Single Dim syear As Single Dim rate(-3 To 99) As Single n = -1 s = 0 Open "c /simple/data/死亡(男性).txt" For Input As #1 Do Until EOF(1) Input #1, x b(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #1 n = -1 s = 0 Open "c /simple/data/死亡(女性).txt" For Input As #11 Do Until EOF(11) Input #11, x c(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #11 Open "c /simple/gdata/厚生年金加入率.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 year = a1 age = a2 mrate(year, age) = a3 frate(year, age) = a4 Loop Close #2 Open "c /simple/data/脱退率.txt" For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4, a5, a6, a7, a8, a9 age = a1 alpha(1, age) = a3 beta(1, age) = a4 phi(1, age) = a5 alpha(2, age) = a7 beta(2, age) = a8 phi(2, age) = a9 Loop Close #3 Open "c /simple/data/再加入率.txt" For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 theta(1, age) = a2 theta(2, age) = a3 Loop Close #4 Open "c /simple/gdata/将来推計人口.txt" For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 year = a1 age = a2 m(year, age) = a3 f(year, age) = a4 Loop Close #5 Open "c /simple/gdata/厚生年金被保険者.txt" For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 year = a1 age = a2 m2(year, age) = a3 f2(year, age) = a4 Loop Close #6 For syear = 49 To 99 zero = 1 mis(16, 1) = m2(syear - 49, 16) For age = 17 To 64 year = syear + age - 65 c1 = 1 - alpha(1, age) - beta(1, age) - phi(1, age) c2 = c1 * m2(year - 1, age - 1) mis(age, 1) = (1 - theta(1, age)) * (m2(year, age) - c2) If mis(age, 1) 0 Then mis(age, 1) = 0 If zero 0 Then mis(age, 1) = 0 c3 = 0 For car = 1 To 50 c3 = c3 + mos(age - 1, car) Next c5 = 0 If c3 = 0 Then c5 = 1 If c3 = 0 Then c3 = 1 c4 = (m2(year, age) - c2 - mis(age, 1)) / c3 If c5 = 1 Then c4 = 0 For car = 2 To 50 mis(age, car) = c1 * mis(age - 1, car - 1) + c4 * mos(age - 1, car - 1) Next For car = 1 To 50 mos(age, car) = alpha(1, age) * mis(age - 1, car) + (1 - c4 - beta(1, age)) * mos(age - 1, car) Next z1 = 0 For car = 1 To 50 z1 = z1 + mis(age, car) + mos(age, car) Next zero = m(year, age) - z1 Next z2 = 0 For car = 1 To 50 z2 = z2 + mis(64, car) + mos(64, car) Next z3 = 0 For car = 1 To 24 z3 = z3 + mis(64, car) + mos(64, car) Next rate(syear) = z3 / z2 Debug.Print syear, rate(syear) Next For year = -3 To 49 rate(year) = rate(49) Next For year = -3 To 99 newm(year) = rate(year) * m(year, 65) Next For car = 1 To 50 Debug.Print car, mis(64, car), mos(64, car) Next Open "c /simple/gdata/男子通算年金新規裁定者.txt " For Output As #8 For year = -3 To 99 Write #8, year, newm(year) Next Close #8 End Sub